home *** CD-ROM | disk | FTP | other *** search
/ Inventor Labs: Transportation / InventorLabs - Transportation.iso / pc / builders / media / netacess / url41.dir / 00017_Script_17 < prev    next >
Text File  |  1996-08-15  |  449b  |  17 lines
  1. on enterFrame
  2.   global TheWeb
  3.   
  4.   --
  5.   -- Use this handler when the user has installed
  6.   -- AOL
  7.   --
  8.   if objectP(TheWeb) then
  9.     set theUser to the text of cast "UserName"
  10.     set thePassword to the text of cast "Password"
  11.     set WebError = TheWeb(mOpenURL,"http://www.hminet.com",theUser,thePassword)
  12.     if WebError <> 0 then
  13.       set the text of cast "ErrorReport" to TheWeb(mGetWebError,WebError)
  14.     end if
  15.   end if
  16. end
  17. end